home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / ACC_CPX / MABOOG / BOOTPSW.Q < prev    next >
Encoding:
Text File  |  1989-06-16  |  940 b   |  33 lines
  1. ;--------------------------------------
  2. ;      Bootsektor-Passwortabfrage
  3. ;      Version 1.0
  4. ;      (c)1989 by Martin Möller
  5. ;                 Klopstockweg 23
  6. ;                 4440 Rheine
  7. ;--------------------------------------
  8.        move.w #$00,$482  ; no Command.Prg
  9.        pea txt           ; Message ausgeben
  10.        move.w #9,-(sp)   ; Print Line
  11.        trap #1           ; do it !
  12.        addq.l #6,sp
  13.        pea buff          ; Puffer
  14.        move.w #$0A,-(sp) ; Cconrs
  15.        trap #1
  16.        addq.l #6,sp
  17.        move.l inp,D1     ; INPUT nach D1
  18.        cmp.l #'1606',D1  ;
  19.        bne.s loop
  20.        move.w #2,-(sp)   ; 'con:'
  21.        move.w #2,-(sp)   ; Bconin
  22.        trap #13
  23.        addq.l #4,sp
  24.        clr.l D0          ; all right!
  25.        rts               ; back!
  26. loop:  bra.s loop
  27. txt:   dc.b "Bitte Ihr Passwort eingeben:",$00,$00
  28. buff:  dc.b 4
  29.        dc.b 0
  30. inp:   dc.b "0000","0000"
  31.        end
  32.